var a,b: Matrix;
v1,v2: Vector;
begin
// Test non quadratic general matrix
a.SetIt(2,2,False,[0,2,2,0]);
v1.SetIt(false,[1,0]);
v2.setIt(false,[0,1]);
a.AddTensorProd(v1,v2,False);
b.SetIt(False,[1,2,2,1]);
if not (a = b) then raise Exception.Create('Not same');
end;
Copyright (c) 1999-2024 by Dew Research. All rights reserved.
